/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_09 / ass_lang / Custom

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e 20 f4 20 3e | 43 75 73 74 6f 6d 0d 00 |.... . >|Custom..|
|00000010| 14 09 20 eb 20 31 33 0d | 00 1e 13 20 de 20 63 6f |.. . 13.|... . co|
|00000020| 64 65 20 34 30 2a 31 30 | 32 34 0d 00 28 0e 20 f2 |de 40*10|24..(. .|
|00000030| 61 73 73 65 6d 62 6c 65 | 0d 00 32 11 20 d6 20 73 |assemble|..2. . s|
|00000040| 63 72 65 65 6e 62 61 73 | 65 0d 00 37 0e 20 d6 20 |creenbas|e..7. . |
|00000050| 61 6e 69 6d 61 74 65 0d | 00 3c 06 20 e0 0d 00 46 |animate.|.<. ...F|
|00000060| 0f 20 dd f2 61 73 73 65 | 6d 62 6c 65 0d 00 50 15 |. ..asse|mble..P.|
|00000070| 20 e3 20 70 61 73 73 3d | 30 20 b8 20 32 20 88 20 | . pass=|0 . 2 . |
|00000080| 32 0d 00 5a 0c 20 50 25 | 3d 63 6f 64 65 0d 00 64 |2..Z. P%|=code..d|
|00000090| 0e 20 5b 4f 50 54 20 70 | 61 73 73 0d 00 6e 0f 2e |. [OPT p|ass..n..|
|000000a0| 73 63 72 65 65 6e 62 61 | 73 65 0d 00 78 2c 20 41 |screenba|se..x, A|
|000000b0| 44 52 20 52 30 2c 69 6e | 70 75 74 20 20 20 20 3b |DR R0,in|put    ;|
|000000c0| 52 30 20 61 6e 64 20 52 | 31 20 70 6f 69 6e 74 20 |R0 and R|1 point |
|000000d0| 74 6f 20 74 68 65 0d 00 | 82 2d 20 41 44 52 20 52 |to the..|.- ADR R|
|000000e0| 31 2c 6f 75 74 70 75 74 | 20 20 20 3b 69 6e 70 75 |1,output|   ;inpu|
|000000f0| 74 20 61 6e 64 20 6f 75 | 74 70 75 74 20 62 6c 6f |t and ou|tput blo|
|00000100| 63 6b 73 0d 00 8c 1e 20 | 53 57 49 20 22 4f 53 5f |cks.... |SWI "OS_|
|00000110| 52 65 61 64 56 64 75 56 | 61 72 69 61 62 6c 65 73 |ReadVduV|ariables|
|00000120| 22 0d 00 96 12 20 4c 44 | 52 20 52 30 2c 6f 75 74 |".... LD|R R0,out|
|00000130| 70 75 74 0d 00 9b 12 20 | 53 54 52 20 52 30 2c 73 |put.... |STR R0,s|
|00000140| 63 62 61 73 65 0d 00 a0 | 0f 20 4d 4f 56 20 50 43 |cbase...|. MOV PC|
|00000150| 2c 52 31 34 0d 00 aa 1b | 2e 69 6e 70 75 74 20 45 |,R14....|.input E|
|00000160| 51 55 44 20 31 34 39 3a | 45 51 55 44 20 2d 31 0d |QUD 149:|EQUD -1.|
|00000170| 00 b4 19 2e 6f 75 74 70 | 75 74 20 45 51 55 44 20 |....outp|ut EQUD |
|00000180| 30 3a 45 51 55 44 20 30 | 0d 00 c8 20 2e 73 63 72 |0:EQUD 0|... .scr|
|00000190| 65 65 6e 20 45 51 55 44 | 20 31 20 3b 20 62 61 6e |een EQUD| 1 ; ban|
|000001a0| 6b 20 6e 75 6d 62 65 72 | 0d 00 c9 14 20 2e 63 6f |k number|.... .co|
|000001b0| 75 6e 74 65 72 20 45 51 | 55 44 20 30 0d 00 cd 28 |unter EQ|UD 0...(|
|000001c0| 2e 73 63 62 61 73 65 20 | 45 51 55 44 20 30 20 3b |.scbase |EQUD 0 ;|
|000001d0| 20 73 63 72 65 65 6e 20 | 62 61 73 65 20 61 64 64 | screen |base add|
|000001e0| 72 65 73 73 0d 00 d2 0c | 2e 61 6e 69 6d 61 74 65 |ress....|.animate|
|000001f0| 0d 00 dc 15 20 53 54 4d | 46 44 20 52 31 33 21 2c |.... STM|FD R13!,|
|00000200| 7b 52 31 34 7d 0d 00 e1 | 0d 2e 61 6e 69 6d 6c 6f |{R14}...|..animlo|
|00000210| 6f 70 0d 00 e6 10 20 4d | 4f 56 20 52 30 2c 23 31 |op.... M|OV R0,#1|
|00000220| 31 32 0d 00 eb 13 20 4c | 44 52 20 52 31 32 2c 73 |12.... L|DR R12,s|
|00000230| 63 62 61 73 65 0d 00 f0 | 12 20 4c 44 52 20 52 31 |cbase...|. LDR R1|
|00000240| 2c 73 63 72 65 65 6e 0d | 00 f5 0e 20 43 4d 50 20 |,screen.|... CMP |
|00000250| 52 31 2c 23 32 0d 00 f6 | 19 20 41 44 44 45 51 20 |R1,#2...|. ADDEQ |
|00000260| 52 31 32 2c 52 31 32 2c | 23 38 31 39 32 30 0d 00 |R12,R12,|#81920..|
|00000270| fa 12 20 53 57 49 20 22 | 4f 53 5f 42 79 74 65 22 |.. SWI "|OS_Byte"|
|00000280| 0d 00 ff 1c 20 53 57 49 | 20 26 31 30 43 20 3b 20 |.... SWI| &10C ; |
|00000290| 76 64 75 20 31 32 20 2d | 20 63 6c 73 0d 01 2c 12 |vdu 12 -| cls..,.|
|000002a0| 20 41 44 52 20 52 35 2c | 6c 6f 6f 6b 75 70 0d 01 | ADR R5,|lookup..|
|000002b0| 36 13 20 4c 44 52 20 52 | 30 2c 63 6f 75 6e 74 65 |6. LDR R|0,counte|
|000002c0| 72 0d 01 40 12 20 53 55 | 42 53 20 52 30 2c 52 30 |r..@. SU|BS R0,R0|
|000002d0| 2c 23 38 0d 01 4a 14 20 | 4d 4f 56 4c 45 20 52 30 |,#8..J. |MOVLE R0|
|000002e0| 2c 23 33 36 30 2a 38 0d | 01 4f 13 20 53 55 42 4c |,#360*8.|.O. SUBL|
|000002f0| 45 20 52 30 2c 52 30 2c | 23 38 0d 01 54 13 20 53 |E R0,R0,|#8..T. S|
|00000300| 54 52 20 52 30 2c 63 6f | 75 6e 74 65 72 0d 01 5e |TR R0,co|unter..^|
|00000310| 11 20 41 44 44 20 52 30 | 2c 52 30 2c 52 35 0d 01 |. ADD R0|,R0,R5..|
|00000320| 68 15 20 4c 44 4d 49 41 | 20 52 30 2c 7b 52 33 2c |h. LDMIA| R0,{R3,|
|00000330| 52 34 7d 0d 01 72 12 20 | 42 4c 20 70 6c 6f 74 73 |R4}..r. |BL plots|
|00000340| 70 72 69 74 65 0d 01 fe | 0f 20 4d 4f 56 20 52 30 |prite...|. MOV R0|
|00000350| 2c 23 31 39 0d 02 08 12 | 20 53 57 49 20 22 4f 53 |,#19....| SWI "OS|
|00000360| 5f 42 79 74 65 22 0d 02 | 0d 10 20 4d 4f 56 20 52 |_Byte"..|.. MOV R|
|00000370| 30 2c 23 31 31 33 0d 02 | 12 12 20 4c 44 52 20 52 |0,#113..|.. LDR R|
|00000380| 31 2c 73 63 72 65 65 6e | 0d 02 1c 12 20 53 57 49 |1,screen|.... SWI|
|00000390| 20 22 4f 53 5f 42 79 74 | 65 22 0d 02 26 12 20 4c | "OS_Byt|e"..&. L|
|000003a0| 44 52 20 52 31 2c 73 63 | 72 65 65 6e 0d 02 30 11 |DR R1,sc|reen..0.|
|000003b0| 20 52 53 42 20 52 31 2c | 52 31 2c 23 33 0d 02 3a | RSB R1,|R1,#3..:|
|000003c0| 12 20 53 54 52 20 52 31 | 2c 73 63 72 65 65 6e 0d |. STR R1|,screen.|
|000003d0| 02 44 1d 20 53 57 49 20 | 22 4f 53 5f 52 65 61 64 |.D. SWI |"OS_Read|
|000003e0| 45 73 63 61 70 65 53 74 | 61 74 65 22 0d 02 4e 11 |EscapeSt|ate"..N.|
|000003f0| 20 42 43 43 20 61 6e 69 | 6d 6c 6f 6f 70 0d 02 58 | BCC ani|mloop..X|
|00000400| 14 20 4c 44 4d 46 44 20 | 52 31 33 21 2c 7b 50 43 |. LDMFD |R13!,{PC|
|00000410| 7d 0d 03 e8 0f 2e 70 6c | 6f 74 73 70 72 69 74 65 |}.....pl|otsprite|
|00000420| 0d 03 f2 12 20 41 44 44 | 20 52 30 2c 52 31 32 2c |.... ADD| R0,R12,|
|00000430| 52 33 0d 03 fc 17 20 41 | 44 44 20 52 30 2c 52 30 |R3.... A|DD R0,R0|
|00000440| 2c 52 34 2c 41 53 4c 23 | 36 0d 04 06 17 20 41 44 |,R4,ASL#|6.... AD|
|00000450| 44 20 52 30 2c 52 30 2c | 52 34 2c 41 53 4c 23 38 |D R0,R0,|R4,ASL#8|
|00000460| 0d 04 0b 19 20 41 44 52 | 20 52 36 2c 73 70 72 69 |.... ADR| R6,spri|
|00000470| 74 65 61 64 64 72 2b 35 | 36 0d 04 10 0f 20 4d 4f |teaddr+5|6.... MO|
|00000480| 56 20 52 31 2c 23 31 36 | 0d 04 1a 0b 20 2e 79 6c |V R1,#16|.... .yl|
|00000490| 6f 6f 70 0d 04 24 0f 20 | 4d 4f 56 20 52 32 2c 23 |oop..$. |MOV R2,#|
|000004a0| 31 36 0d 04 2e 0b 20 2e | 78 6c 6f 6f 70 0d 04 38 |16.... .|xloop..8|
|000004b0| 14 20 4c 44 52 42 20 52 | 35 2c 5b 52 36 5d 2c 23 |. LDRB R|5,[R6],#|
|000004c0| 31 0d 04 42 14 20 53 54 | 52 42 20 52 35 2c 5b 52 |1..B. ST|RB R5,[R|
|000004d0| 30 5d 2c 23 31 0d 04 4c | 12 20 53 55 42 53 20 52 |0],#1..L|. SUBS R|
|000004e0| 32 2c 52 32 2c 23 31 0d | 04 56 0e 20 42 4e 45 20 |2,R2,#1.|.V. BNE |
|000004f0| 78 6c 6f 6f 70 0d 04 60 | 18 20 41 44 44 20 52 30 |xloop..`|. ADD R0|
|00000500| 2c 52 30 2c 23 28 33 32 | 30 2d 31 36 29 0d 04 6a |,R0,#(32|0-16)..j|
|00000510| 12 20 53 55 42 53 20 52 | 31 2c 52 31 2c 23 31 0d |. SUBS R|1,R1,#1.|
|00000520| 04 74 0e 20 42 4e 45 20 | 79 6c 6f 6f 70 0d 04 7e |.t. BNE |yloop..~|
|00000530| 0f 20 4d 4f 56 20 50 43 | 2c 52 31 34 0d 04 88 0f |. MOV PC|,R14....|
|00000540| 2e 73 70 72 69 74 65 61 | 64 64 72 0d 04 92 0d 20 |.spritea|ddr.... |
|00000550| 5d 50 25 2b 3d 35 31 32 | 0d 04 9c 0e 20 5b 4f 50 |]P%+=512|.... [OP|
|00000560| 54 20 70 61 73 73 0d 0f | a0 0b 2e 6c 6f 6f 6b 75 |T pass..|...looku|
|00000570| 70 0d 0f aa 0b 20 a4 74 | 61 62 6c 65 0d 13 88 0c |p.... .t|able....|
|00000580| 20 5d ed 20 70 61 73 73 | 0d 13 8d 2e 20 c8 99 20 | ]. pass|.... .. |
|00000590| 22 4f 53 5f 43 4c 49 22 | 2c 22 4c 6f 61 64 20 6d |"OS_CLI"|,"Load m|
|000005a0| 79 73 70 72 69 74 65 20 | 22 2b c3 7e 73 70 72 69 |ysprite |"+.~spri|
|000005b0| 74 65 61 64 64 72 0d 13 | 92 06 20 e1 0d 1f 40 0c |teaddr..|.. ...@.|
|000005c0| 20 dd a4 74 61 62 6c 65 | 0d 1f 4a 11 20 e3 20 49 | ..table|..J. . I|
|000005d0| 25 3d 30 20 b8 20 33 35 | 39 0d 1f 54 0e 20 5b 4f |%=0 . 35|9..T. [O|
|000005e0| 50 54 20 70 61 73 73 0d | 1f 5e 1a 20 45 51 55 44 |PT pass.|.^. EQUD|
|000005f0| 20 31 36 30 2b 31 30 30 | 2a b5 28 b2 28 49 25 29 | 160+100|*.(.(I%)|
|00000600| 29 0d 1f 68 1a 20 45 51 | 55 44 20 31 32 38 2b 31 |)..h. EQ|UD 128+1|
|00000610| 30 30 2a 9b 28 b2 28 49 | 25 29 29 0d 1f 72 09 20 |00*.(.(I|%))..r. |
|00000620| 5d ed 49 25 0d 1f 7c 08 | 20 3d 22 22 0d ff       |].I%..|.| =""..  |
+--------+-------------------------+-------------------------+--------+--------+